home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / turtle graphik (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  12KB  |  218 lines
  1. 20 print"[147]    [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]
  2. 30 [153]"    sinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin
  3. 40 print"    [191][191]                           [191][191]
  4. 50 [153]"    sinsin                           sinsin
  5. 60 print"    [191][191]     turtle graphics       [191][191]
  6. 70 [153]"    sinsin     valvalvalvalvalvalvalvalvalvalvalvalvalvalval       sinsin
  7. 100 print"    [191][191]                           [191][191]
  8. 110 [153]"    sinsin   entwickelt 8.1984 von   sinsin
  9. 120 print"    [191][191]                           [191][191]
  10. 130 [153]"    sinsin                           sinsin
  11. 140 print"    [191][191]   p e t e r  m e n k e    [191][191]
  12. 150 [153]"    sinsin                           sinsin
  13. 160 print"    [191][191]        griftweg 4         [191][191]
  14. 170 [153]"    sinsin    2212 brunsbuettel      sinsin
  15. 190 print"    [191][191]                           [191][191]
  16. 200 [153]"    sinsin                           sinsin
  17. 210 print"    [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]
  18. 220 [153]"    sinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin
  19. 230 print"         bitte taste druecken"
  20. 240 get a$:if a$=""then240
  21. 250 print"[147]"
  22. 260 gosub1000
  23. 270 :
  24. 280 :
  25. 290 rem **variable**
  26. 300 an=49152
  27. 301 zi=51360
  28. 310 na$="turtle gr."
  29. 320 :
  30. 330 :
  31. 340 :
  32. 350 rem **** einleseroutine ****
  33. 360 s=an:z=1000
  34. 370 fori=1to16:read x
  35. 390 ifx=-100then530
  36. 391 ifx<0orx>255then503
  37. 400 gosub515:pokes,x
  38. 410 s=s+1:pr=pr+x:next
  39. 440 :
  40. 460 read x:if pr=x then pr=0:z=z+10:goto 370
  41. 470 print"pruefsummenfehler in zeile"z
  42. 475 print"pruefsumme der zeile"z":"pr:print
  43. 480 print"richtige pruefsumme:"x:print:print
  44. 490 print"list"z-10"-"z"[145][145]";:poke631,13:poke198,1
  45. 500 end
  46. 501 :
  47. 502 :
  48. 503 print"datenfehler in zeile"z
  49. 504 print"es wurde versucht"x"zu poken."
  50. 505 goto490
  51. 510 :
  52. 511 :
  53. 512 :
  54. 515 print"  zeile:"z" speicherstelle:"s
  55. 516 print"  eingelesener wert:    [157][157][157][157]"x
  56. 517 if z>=peek(63)+256*peek(64) then return
  57. 518 print"data-zeile fehlt!!"
  58. 519 print"oder zeilennummern der data-zeilen nicht"
  59. 520 print"in zehner abstaenden":end
  60. 521 :
  61. 522 :
  62. 523 :
  63. 530 if s=zi then 539
  64. 531 print"datenanzahl ist falsch":print:print"das waere richtig :";zi-an
  65. 532 print:print"ihre datenanzahl :";s-an
  66. 537 end
  67. 539 print"keinen fehler gefunden !"
  68. 540 print"abspeichern (j/n) ?"
  69. 550 get a$:if a$="n" then 590
  70. 560 if a$<>"j" then 550
  71. 570 input"geraeteadresse (1=datasette/8=disk)";ge
  72. 580 save na$+"(c)pm",ge
  73. 590 print"zum start eine beliebige                taste druecken
  74. 600 [161] a$:[139] a$[178]"" [167] 600
  75. 610 [158]an
  76. 630 :
  77. 640 :
  78. 650 :
  79. 1000 [131] 120,032,063,193,088,032,163,193,032,223,193,169,028,133,254,169,2085
  80. 1010 [131] 192,133,255,032,097,192,032,068,166,076,116,164,147,017,017,017,1721
  81. 1020 [131] 029,029,084,085,082,084,076,069,032,071,082,065,080,072,073,067,1080
  82. 1030 [131] 083,190,190,029,029,066,089,032,080,069,084,069,082,032,077,069,1270
  83. 1040 [131] 078,075,069,190,190,029,029,051,056,057,049,049,032,066,065,083,1168
  84. 1050 [131] 073,067,032,066,089,084,069,083,032,070,082,069,069,017,017,190,1109
  85. 1060 [131] 191,160,000,177,254,201,191,240,012,201,190,208,002,169,013,032,2241
  86. 1070 [131] 210,255,200,208,238,096,173,025,208,141,025,208,016,029,173,018,2223
  87. 1080 [131] 208,201,250,176,011,032,204,193,169,250,141,018,208,076,188,254,2579
  88. 1090 [131] 032,185,193,169,217,141,018,208,076,188,254,173,013,220,088,165,2340
  89. 1100 [131] 204,208,033,169,032,044,017,208,240,026,206,252,203,208,021,169,2240
  90. 1110 [131] 007,141,252,203,173,241,203,072,169,002,141,241,203,032,118,195,2393
  91. 1120 [131] 104,141,241,203,165,212,208,030,165,216,208,026,165,203,205,255,2747
  92. 1130 [131] 203,240,019,141,255,203,201,064,240,012,201,004,240,011,201,005,2240
  93. 1140 [131] 240,029,201,006,240,048,076,049,234,173,017,208,041,032,240,009,1843
  94. 1150 [131] 032,204,193,032,017,194,076,230,192,032,185,193,076,230,192,173,2251
  95. 1160 [131] 017,208,041,032,240,246,173,026,208,041,001,240,006,032,017,194,1722
  96. 1170 [131] 076,230,192,032,254,193,162,021,160,000,024,032,240,255,076,230,2177
  97. 1180 [131] 192,072,138,072,152,072,169,127,141,013,221,172,013,221,048,012,1835
  98. 1190 [131] 032,163,253,032,024,229,032,063,193,108,002,160,076,114,254,032,1767
  99. 1200 [131] 204,193,169,004,141,136,002,169,118,141,020,003,169,192,141,021,1823
  100. 1210 [131] 003,169,033,141,024,003,169,193,141,025,003,169,048,141,022,003,1287
  101. 1220 [131] 169,193,141,023,003,169,011,141,254,203,169,001,141,253,203,141,2215
  102. 1230 [131] 252,203,169,000,141,026,208,169,134,141,004,003,169,196,141,005,1961
  103. 1240 [131] 003,169,043,141,008,003,169,197,141,009,003,169,084,141,006,003,1289
  104. 1250 [131] 169,197,141,007,003,169,103,141,038,003,169,199,141,039,003,032,1554
  105. 1260 [131] 249,195,096,162,032,160,000,169,224,133,255,132,254,152,145,254,2612
  106. 1270 [131] 136,208,251,230,255,202,208,246,096,169,056,141,024,208,169,148,2747
  107. 1280 [131] 141,000,221,173,017,208,009,032,141,017,208,096,169,021,141,024,1618
  108. 1290 [131] 208,169,151,141,000,221,173,017,208,041,223,141,017,208,096,169,2183
  109. 1300 [131] 204,133,255,160,000,132,254,162,004,173,253,203,010,010,010,010,1973
  110. 1310 [131] 013,254,203,145,254,136,208,251,230,255,202,208,246,096,169,217,3087
  111. 1320 [131] 141,018,208,173,017,208,041,127,141,017,208,169,001,141,026,208,1844
  112. 1330 [131] 096,169,000,141,026,208,096,166,122,202,232,142,242,203,162,255,2462
  113. 1340 [131] 142,251,203,142,250,203,238,250,203,174,250,203,189,127,194,240,3259
  114. 1350 [131] 033,016,243,238,251,203,172,242,203,136,200,185,000,002,141,249,2514
  115. 1360 [131] 203,232,189,127,194,056,237,249,203,240,239,201,128,240,019,076,2833
  116. 1370 [131] 038,194,174,242,203,189,000,002,240,007,201,058,240,188,232,208,2416
  117. 1380 [131] 244,096,174,242,203,173,251,203,024,105,208,157,000,002,232,200,2514
  118. 1390 [131] 185,000,002,157,000,002,240,218,232,200,208,244,076,082,194,200,2240
  119. 1400 [131] 072,073,082,069,211,077,079,086,197,067,076,069,065,210,087,073,1593
  120. 1410 [131] 078,068,079,215,080,076,079,212,077,079,068,197,068,069,199,082,1726
  121. 1420 [131] 069,086,069,082,211,076,084,085,082,206,082,084,085,082,206,067,1656
  122. 1430 [131] 079,076,079,210,071,076,079,065,196,071,083,065,086,197,074,079,1586
  123. 1440 [131] 089,083,084,073,067,203,076,080,069,206,072,069,076,208,000,239,1694
  124. 1450 [131] 194,205,197,095,195,084,199,073,196,118,196,147,197,163,197,128,2584
  125. 1460 [131] 198,144,198,165,198,036,199,223,198,161,199,059,200,053,199,032,2462
  126. 1470 [131] 158,183,224,000,240,054,032,121,000,240,040,032,253,174,032,158,1941
  127. 1480 [131] 183,224,016,144,003,076,106,195,142,254,203,032,223,193,032,121,2147
  128. 1490 [131] 000,240,016,032,253,174,032,158,183,224,016,144,003,076,106,195,1852
  129. 1500 [131] 142,032,208,032,185,193,032,249,195,076,174,167,032,121,000,240,2078
  130. 1510 [131] 037,032,253,174,032,158,183,224,016,144,003,076,106,195,142,033,1808
  131. 1520 [131] 208,032,121,000,240,016,032,253,174,032,158,183,224,016,144,003,1836
  132. 1530 [131] 076,106,195,142,032,208,032,017,194,032,204,193,076,174,167,208,2056
  133. 1540 [131] 012,032,163,193,032,223,193,076,174,167,162,014,044,162,011,032,1690
  134. 1550 [131] 204,193,076,055,164,096,173,241,203,201,003,240,248,174,246,203,2720
  135. 1560 [131] 138,074,074,041,254,168,185,015,196,141,244,203,185,016,196,141,2271
  136. 1570 [131] 245,203,138,041,007,024,109,244,203,141,244,203,173,247,203,041,2466
  137. 1580 [131] 248,141,243,203,173,244,203,133,252,024,169,224,109,245,203,133,2947
  138. 1590 [131] 253,024,165,252,109,243,203,133,252,165,253,109,248,203,133,253,2998
  139. 1600 [131] 173,247,203,041,007,073,007,170,189,065,196,160,000,120,162,052,1865
  140. 1610 [131] 134,001,174,241,203,240,008,224,001,240,014,224,002,240,019,017,1982
  141. 1620 [131] 252,145,252,169,055,133,001,088,096,073,255,049,252,145,252,076,2293
  142. 1630 [131] 227,195,081,252,145,252,076,227,195,169,000,141,248,203,141,241,2793
  143. 1640 [131] 203,141,240,203,169,160,141,247,203,169,100,141,246,203,096,000,2662
  144. 1650 [131] 000,064,001,128,002,192,003,000,005,064,006,128,007,192,008,000,800
  145. 1660 [131] 010,064,011,128,012,192,013,000,015,064,016,128,017,192,018,000,880
  146. 1670 [131] 020,064,021,128,022,192,023,000,025,064,026,128,027,192,028,000,960
  147. 1680 [131] 030,001,002,004,008,016,032,064,128,032,235,183,224,200,176,035,1370
  148. 1690 [131] 165,021,201,001,144,008,208,027,165,020,201,064,176,021,120,142,1684
  149. 1700 [131] 246,203,165,020,141,247,203,165,021,141,248,203,088,032,118,195,2436
  150. 1710 [131] 076,174,167,076,106,195,032,158,183,224,004,144,003,076,106,195,1919
  151. 1720 [131] 142,241,203,076,174,167,032,023,194,166,122,160,004,132,015,189,2040
  152. 1730 [131] 000,002,141,249,203,041,240,201,208,208,006,173,249,203,076,232,2432
  153. 1740 [131] 196,173,249,203,016,007,201,255,240,062,232,208,226,201,032,240,2741
  154. 1750 [131] 055,133,008,201,034,240,086,036,015,112,045,201,063,208,004,169,1610
  155. 1760 [131] 153,208,037,201,048,144,004,201,060,144,029,132,113,160,000,132,1766
  156. 1770 [131] 011,136,134,122,202,200,232,189,000,002,056,249,158,160,240,245,2336
  157. 1780 [131] 201,128,208,048,005,011,164,113,232,200,153,251,001,185,251,001,2152
  158. 1790 [131] 240,054,056,233,058,240,004,201,073,208,002,133,015,056,233,085,1891
  159. 1800 [131] 208,141,133,008,189,000,002,240,223,197,008,240,219,200,153,251,2412
  160. 1810 [131] 001,232,208,240,166,122,230,011,200,185,157,160,016,250,185,158,2521
  161. 1820 [131] 160,208,180,189,000,002,016,190,076,009,166,032,115,000,041,240,1624
  162. 1830 [131] 201,208,240,009,032,121,000,032,237,167,076,174,167,032,121,000,1817
  163. 1840 [131] 041,015,010,168,185,208,194,133,167,185,207,194,133,166,032,115,2153
  164. 1850 [131] 000,108,166,000,016,052,201,255,240,048,036,015,048,044,141,249,1619
  165. 1860 [131] 203,041,240,201,208,208,038,173,249,203,041,015,170,232,132,073,2427
  166. 1870 [131] 160,255,200,185,127,194,016,250,202,208,247,200,185,127,194,048,2798
  167. 1880 [131] 006,032,071,171,076,123,197,076,239,166,076,243,166,173,249,203,2267
  168. 1890 [131] 076,036,167,032,158,183,224,008,144,003,076,106,195,142,240,203,1993
  169. 1900 [131] 076,174,167,208,037,162,032,169,224,133,255,160,000,132,254,120,2303
  170. 1910 [131] 169,052,133,001,177,254,073,255,145,254,136,208,247,230,255,202,2791
  171. 1920 [131] 208,242,169,055,133,001,088,076,174,167,076,109,195,032,138,173,2036
  172. 1930 [131] 032,247,183,166,020,240,008,032,236,197,198,020,076,211,197,166,2229
  173. 1940 [131] 021,240,006,198,021,198,020,208,234,076,174,167,173,240,203,240,2419
  174. 1950 [131] 029,201,002,240,034,201,004,240,039,201,006,240,044,201,001,240,1923
  175. 1960 [131] 010,201,003,240,015,201,005,240,020,208,027,032,047,198,032,093,1572
  176. 1970 [131] 198,076,118,195,032,067,198,032,047,198,076,118,195,032,056,198,1836
  177. 1980 [131] 032,067,198,076,118,195,032,093,198,032,056,198,076,118,195,173,1857
  178. 1990 [131] 246,203,240,067,206,246,203,096,173,246,203,201,199,176,056,238,2999
  179. 2000 [131] 246,203,096,173,248,203,208,009,173,247,203,240,042,206,247,203,2947
  180. 2010 [131] 096,173,247,203,208,003,206,248,203,206,247,203,096,173,248,203,2963
  181. 2020 [131] 208,009,238,247,203,208,003,238,248,203,096,174,247,203,232,224,2981
  182. 2030 [131] 064,176,004,142,247,203,096,173,237,203,208,003,076,106,195,096,2229
  183. 2040 [131] 032,158,183,138,024,109,240,203,041,007,141,240,203,076,174,167,2136
  184. 2050 [131] 032,158,183,142,249,203,173,240,203,056,237,249,203,041,007,141,2517
  185. 2060 [131] 240,203,076,174,167,032,158,183,224,016,176,048,142,253,203,032,2327
  186. 2070 [131] 223,193,032,121,000,240,034,032,253,174,032,158,183,224,016,176,2091
  187. 2080 [131] 027,142,254,203,032,223,193,032,121,000,240,013,032,253,174,032,1971
  188. 2090 [131] 158,183,224,016,176,006,142,032,208,076,174,167,076,106,195,120,2059
  189. 2100 [131] 169,052,133,001,162,032,160,000,132,254,132,166,169,224,133,255,2174
  190. 2110 [131] 169,160,133,167,177,254,145,166,136,208,249,230,255,230,167,202,3048
  191. 2120 [131] 208,242,169,055,133,001,088,032,212,225,162,000,160,192,134,254,2267
  192. 2130 [131] 169,160,133,255,169,054,133,001,169,254,032,216,255,169,055,133,2357
  193. 2140 [131] 001,076,174,167,032,212,225,169,000,133,185,162,000,160,224,032,1952
  194. 2150 [131] 213,255,076,174,167,208,026,160,000,185,128,194,240,016,016,007,2065
  195. 2160 [131] 041,127,032,210,255,169,013,032,210,255,200,076,057,199,076,174,2126
  196. 2170 [131] 167,076,109,195,032,158,183,224,000,240,006,032,254,193,076,174,2119
  197. 2180 [131] 167,032,017,194,076,174,167,072,165,154,201,003,208,008,104,201,1943
  198. 2190 [131] 135,240,006,076,022,231,076,213,241,142,249,203,166,212,208,027,2447
  199. 2200 [131] 166,216,208,023,152,072,169,021,133,214,169,000,133,211,032,108,2027
  200. 2210 [131] 229,104,168,174,249,203,169,135,024,088,096,174,249,203,076,022,2363
  201. 2220 [131] 231,032,158,183,232,142,239,203,169,001,141,237,203,165,203,201,2740
  202. 2230 [131] 003,208,008,169,000,141,237,203,076,174,167,169,000,141,238,203,2137
  203. 2240 [131] 173,000,220,041,001,208,009,032,047,198,032,034,200,238,238,203,1874
  204. 2250 [131] 173,000,220,041,002,208,009,032,056,198,032,034,200,238,238,203,1884
  205. 2260 [131] 173,000,220,041,004,208,009,032,067,198,032,034,200,238,238,203,1897
  206. 2270 [131] 173,000,220,041,008,208,009,032,093,198,032,034,200,238,238,203,1927
  207. 2280 [131] 173,238,203,208,168,032,011,200,076,173,199,173,241,203,072,169,2539
  208. 2290 [131] 002,141,241,203,032,118,195,032,047,200,032,118,195,104,141,241,2042
  209. 2300 [131] 203,096,173,000,220,041,016,208,226,032,118,195,076,047,200,172,2023
  210. 2310 [131] 239,203,162,100,202,208,253,136,208,248,096,240,003,076,109,195,2678
  211. 2320 [131] 165,203,201,003,208,003,076,174,167,173,020,208,056,233,050,144,2084
  212. 2330 [131] 239,201,200,176,235,141,246,203,173,019,208,056,233,035,144,224,2733
  213. 2340 [131] 010,141,247,203,144,007,201,064,176,214,169,001,044,169,000,141,1931
  214. 2350 [131] 248,203,173,141,002,041,004,240,012,032,118,195,032,093,198,032,1764
  215. 2360 [131] 118,195,076,064,200,173,241,203,072,169,002,141,241,203,032,118,2248
  216. 2370 [131] 195,032,118,195,104,141,241,203,076,064,200,255,255,255,255,249,2838
  217. 63000 [131] -100:[142]
  218.